home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir25 / cbupda01.zip / UPDT4WIN.INF < prev   
INI File  |  1993-12-07  |  17KB  |  591 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; PARTIAL INSTALL SCRIPT (UPDATE) FOR MICRO COOKBOOK 4.0c
  3. ;; CREATED 10-28-93
  4. ;; PINPOINT PUBLISHING
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6.  
  7. DefineVariables
  8. Logical [TraceMode] := Y
  9.  
  10. Text [ProductName] := Micro Cookbook 4.0c (Update)
  11. Directory [DefaultInstallationDirectory] := \COOK4
  12. Text [ModifyMode] := UNDECIDED
  13. Number [MinimumFilesSetting] := 40
  14. Directory [ReadmeFileName] := README.TXT
  15. Logical [InquireAboutSystemFileLocation] := Y
  16. Logical [AskBeforeFileReplacement] := Y
  17. Logical [AddInstallDirectoryToPath] := N
  18. Text [MinimumOSVersion] := 3.3  ;; Minimum OS Version required to work with DR DOS 6
  19. Number [MinimumSystemMemoryRequiredPresent] := 635
  20. Number [MinimumExtendedMemoryRequiredPresent] := 1000
  21. Logical [AllowCGA] := N
  22. Logical [AllowMDA] := N
  23. Logical [Allow808x] := N
  24. Logical [Allow80286] := N
  25. Logical [MathCoprocessorRecommended] := N
  26. Text [NetWorkInstallation] := AllowNetwork
  27. Logical [UseShadows] := Y
  28. Text [MainBorder] := NONE
  29. Text [PopupBorder] := SINGLE
  30. Text [TopLine] := "  INSTALLING [ProductName]  "
  31. Text [PopupColors] := WhiteOnCyan
  32. Text [AttentionColors] := WhiteOnRed
  33. Text [SpecialPopupColors] := WhiteOnBrown
  34. Text [ExtractionOptions] := ShowJustOne  ;; See GetQuedFiles
  35. Logical [Installed] := N
  36. Text [DisplayAdapterSummary] := Y
  37. Text [CPUTypeSummary] := Y
  38. Text [NetworkActive] :=  N
  39. Text [MathCoprocessorStatus] := N
  40. Text [InstallationDriveSummary] := Y
  41. Text [OSVersionSummary] := Y
  42. Text [SystemMemorySummary] := Y
  43. Text [ExtendedMemorySummary] := Y
  44. Logical [InsufficientSystem] := N
  45. Logical [CompatibilityNoticeGiven] := N
  46. Text [PathTask] := <Path task variable>
  47. Text [BuffersTask] := <Buffrs task variable>
  48. Text [FilesTask] := <Files task variable>
  49. Text [BackgroundCharacter] := B0
  50. Text [ScreenColors] := WhiteOnRed
  51. Text [YesNo] := Y
  52. Text [GoodDestination] := N
  53. Text [Configure] := N
  54.  
  55. EndDefineVariables
  56.  
  57.  
  58. ;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  59. ;;
  60. ;; START OF PROGRAM
  61. ;;
  62. ;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  63. If [InquireAboutSystemFileLocation] = NoCharacter
  64.   If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
  65.     NoSysFileConfirmation
  66.   EndIf
  67. EndIf
  68.  
  69. SetReplacementInquiry Off
  70.  
  71. Do SetupInstalit                 ;; setup screen etc...
  72. Do PrepareSystemReport           ;; make sure we can do this...
  73. ClearScreen
  74.  
  75. Do EscapeMessage
  76.  
  77. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  78. ;; check for adequate resources
  79.  
  80. If [InsufficientSystem] = YesCharacter
  81.   Dialog [YesOrNo1] WhiteOnRed ;; Insufficient system notice
  82.     Analysis of your system has determined that it does
  83.     not have sufficient resources to install and use
  84.     [ProductName].  For a complete list of your system's
  85.     resources, press YesCharacter.
  86.  
  87.     Do you wish to continue anyway?
  88.   EndDialog
  89.   If [YesOrNo1] = NoCharacter
  90.     Do ExitInstallation
  91.   Else
  92.     Do ShowSystemSummary
  93.   EndIf
  94. EndIf
  95.  
  96. Do EscapeMessage
  97.  
  98. ;;;;;;;;;;;;;;;;;;;;;;;;;;
  99. ;; determine installation drive, unless we've been here before
  100. ;; indicate drives without sufficient disk space or cdrom drives
  101.  
  102. If [Installed] = YesCharacter
  103. Else
  104.   Do DetermineDirectory
  105.   Do CheckDestination
  106.   Logging On   ;;  Creates a log of files dealt with
  107. EndIf
  108.                                                                       
  109. Do EscapeMessage
  110.  
  111. QueFiles                         ;; prepare files for installation
  112.       *.exe
  113.       *.dbf
  114.       *.dat
  115.       *.dll
  116.       *.hlp
  117.       *.imp
  118.       *.001
  119. EndQueFiles
  120.  
  121. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  122. ;; extract the files and put them on the target drive
  123.  
  124. CopyFiles
  125.    readme.txt
  126.    retrieve.exe
  127.    cbreport.bat
  128. EndCopyFiles
  129. GetQuedFiles [ExtractionOptions]
  130.  
  131. [Installed] := YesCharacter
  132.  
  133. If QueSize > 0  ;; Some files were selected but not installed if QueSize > 0
  134.   [Installed] := NoCharacter
  135.   UnqueAllFiles       ;; Remove uninstalled files from que
  136.   Dialog              ;; Message when unable to get all necessary files
  137.     Unable to install all of the files.
  138.   EndDialog
  139. EndIf
  140.  
  141. ;;;;;;;;;;;;;;;
  142. Do ExitInstallation    ;; Exit
  143.  
  144. ;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  145. ;;
  146. ;; END OF PROGRAM
  147. ;;
  148. ;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  149.  
  150.  
  151. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  152. Procedure ShowHelpInfo
  153. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  154. Dialog PressAKey [SpecialPopupColors]         ;; How to reach technical support
  155. For assistance, dial (707) 523-0467 and ask for
  156. Technical Support.  You are installing
  157. [ProductName].
  158.  
  159. You can get a summary of your computer system
  160. by pressing YesCharacter.  This information will be
  161. important should you call Customer Service.
  162. EndDialog
  163. If [YesOrNo1] = YesCharacter
  164.   Do ShowSystemSummary
  165. EndIf
  166. EndProcedure
  167.  
  168. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  169. Procedure ShowSystemSummary  ;; System summary - change with care.
  170. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  171.   Dialog PressAKey [SpecialPopupColors]
  172.     .cHERE IS A SUMMARY OF YOUR SYSTEM
  173.     .c[String8]  ;; notes whether any incompatibilities were found
  174.  
  175.     Operating System Version:  [OSVersionSummary]
  176.     CPU Type:  [CPUTypeSummary]
  177.     Display Adapter:  [DisplayAdapterSummary]
  178.     Math Coprocessor:  [MathCoprocessorStatus]
  179.     Main Memory Present:  [SystemMemorySummary]
  180.     Extended Memory Present:  ExtendedMemoryPresentK
  181.     Installation Drive:  [InstallationDriveSummary]
  182.     Network:  [NetworkActive]
  183.     [String9]  ;; information about network suitability
  184.   EndDialog
  185. EndProcedure
  186.  
  187. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  188. Procedure PrepareSystemReport
  189. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  190.   [InsufficientSystem] := NoCharacter
  191.   If OS2                                ;; Don't check if OS/2 
  192.   Else                                  ;; It reads as version 2.1
  193.     If OSVersion < [MinimumOSVersion]
  194.     [OSVersionSummary] := OSVersion (need at least [MinimumOSVersion])
  195.     [InsufficientSystem] := YesCharacter
  196.     Else
  197.     [OSVersionSummary] := OSVersion
  198.     EndIf
  199.   EndIf
  200.  
  201.   If MainMemory < [MinimumSystemMemoryRequiredPresent]
  202.     [SystemMemorySummary] := MainMemoryK (need at least [MinimumSystemMemoryRequiredPresent]K)
  203.     [InsufficientSystem] := YesCharacter
  204.   Else
  205.     [SystemMemorySummary] := MainMemoryK
  206.   EndIf
  207.  
  208.   If ExtendedMemoryPresent < [MinimumExtendedMemoryRequiredPresent]
  209.     [ExtendedMemorySummary] := ExtendedMemoryPresentK (need at least [MinimumExtendedMemoryRequiredPresent]K)
  210.     [InsufficientSystem] := YesCharacter
  211.   Else
  212.     [ExtendedMemorySummary] := ExtendedMemoryPresentK
  213.   EndIf
  214.  
  215.   If 808X
  216.     If [Allow808X] = YesCharacter
  217.       [CPUTypeSummary] := 808x
  218.     Else
  219.       [CPUTypeSummary] := 808x (not compatible with [ProductName])
  220.       [InsufficientSystem] := YesCharacter
  221.     EndIf
  222.   EndIf
  223.  
  224.   If 80286
  225.     [CPUTypeSummary] := 80286
  226.   EndIf
  227.   If 80386
  228.     [CPUTypeSummary] := 80386
  229.   EndIf
  230.   If 80486
  231.     [CPUTypeSummary] := 80486
  232.   EndIf
  233.   If [CPUTypeSummary] = BlankString
  234.     [CPUTypeSummary] := 808x
  235.   EndIf
  236.   If MicroChannel
  237.     [CPUTypeSummary] := [CPUTypeSummary] (in MicroChannel Architecture)
  238.   Else
  239.     [CPUTypeSummary] := [CPUTypeSummary] (ISA or EISA Architecture)
  240.   EndIf
  241.  
  242.   If CGA
  243.     If [AllowCGA] = YesCharacter
  244.       [DisplayAdapterSummary] := CGA
  245.     Else
  246.       [DisplayAdapterSummary] := CGA (not compatible with [ProductName])
  247.       [InsufficientSystem] := YesCharacter
  248.     EndIf
  249.   EndIf
  250.  
  251.   If MDA
  252.     If [AllowMDA] = YesCharacter
  253.       [DisplayAdapterSummary] := MDA
  254.     Else
  255.       [DisplayAdapterSummary] := MDA (not compatible with [ProductName])
  256.       [InsufficientSystem] := YesCharacter
  257.     EndIf
  258.   EndIf
  259.  
  260.   If EGA
  261.     [DisplayAdapterSummary] := EGA
  262.   EndIf
  263.   If VGA
  264.     [DisplayAdapterSummary] := VGA
  265.   EndIf
  266.   If HGC
  267.     [DisplayAdapterSummary] := HGC
  268.   EndIf
  269.  
  270.   If HGCPlus
  271.     [DisplayAdapterSummary] := HGC Plus
  272.   EndIf
  273.   If Network
  274.     [NetworkActive] := Network Active
  275.   Else
  276.     [NetworkActive] := No Network Active
  277.   EndIf
  278.  
  279.   If NovellLoaded
  280.     [NetworkActive] := Novell [NetworkActive]
  281.   EndIf
  282.   If [InstallationDirectory] <> BlankString
  283.     [InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
  284.   Else
  285.     [InstallationDriveSummary] := (Not Selected)
  286.   EndIf
  287.  
  288.   If MathCoprocessorPresent
  289.     [MathCoprocessorStatus] := Present
  290.   Else
  291.     If [MathCoprocessorRecommended] = YesCharacter
  292.       [MathCoprocessorStatus] := Not Present But Recommended
  293.       If [CompatibilityNoticeGiven] = YesCharacter
  294.       Else
  295.         Dialog  ;; Notice if math coprocessor recommended
  296.           [ProductName] needs a math coprocessor
  297.           for best performance.  Your system does not
  298.           contain one.
  299.         EndDialog
  300.       EndIf
  301.     Else
  302.       [MathCoprocessorStatus] := Not Present
  303.     EndIf
  304.   EndIf
  305.  
  306.   If WindowsVersion < 3.1
  307.    Dialog
  308.       Unable to install the [ProductName].
  309.       This program requires Windows 3.1 or later.
  310.  
  311.       Press OK to exit the install program.
  312.    EndDialog
  313.    Do ExitInstallation
  314.   Else
  315.   Endif
  316.  
  317.   If [InsufficientSystem] = YesCharacter
  318.     [String8] := (Please note the listed incompatibilities)
  319.   EndIf
  320.   If [NetworkInstallation] contains DisallowNetwork
  321.     [String9] := "   (You cannot install this version on a network drive)"
  322.   EndIf
  323.   [CompatibilityNoticeGiven] := YesCharacter
  324. EndProcedure
  325.  
  326.  
  327. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  328. Procedure ExitInstallation
  329. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  330.   ClearScreen
  331.   Do EscapeMessage
  332.  
  333.  
  334.   ;;;;;;;;;;;;;;;;;;;;;;;;
  335.   DeleteFiles from ShadowDirectory               ;; remove bitmaps
  336.     CB40INST.BMP
  337.   EndDeleteFiles
  338.  
  339.  
  340.   ;;;;;;;;;;;;;;;;;;;;;;;;
  341.   If [Installed] = YesCharacter
  342.     [YesNo] := N       ;; initialize YesNo to No - don't check
  343.     [Configure] := Y
  344.     Dialog [YesNo] 1
  345.       .cEven though you most likely have the correct FILES setting
  346.       in your CONFIG.SYS file, UPDATE can check the setting if you
  347.       wish.  UPDATE will then change the setting, if necessary.
  348.          Y = Yes, have UPDATE check the setting
  349.          N = No, don't bother
  350.     EndDialog
  351.     Do CheckYesNo
  352.     If [YesNo] = Y
  353.       [Number1] := [MinimumFilesSetting]
  354.       If [Number1] <> 0
  355.     ModifyConfigSys Quietly NoInquiry
  356.       SetFilesToAtLeast [MinimumFilesSetting]
  357.     EndModifyConfigSys
  358.     If ConfigSysModified
  359.       Dialog
  360.         .cThe Files= setting has been increased to 40 in order to
  361.           properly run Micro Cookbook.  You must reboot your system 
  362.           for this change to take effect.
  363.       EndDialog
  364.     EndIf
  365.       EndIf
  366.     EndIf
  367.  
  368.     NoSysFileConfirmation  ;; since already inquired once
  369.  
  370.     ;;;;;;;;;;;;;;;;;;;;;
  371.     ChangeDirectoryTo [InstallationDirectory]
  372.  
  373.     ;;;;;;;;;;;;;;;;;;;;;
  374.     If FileExists [InstallationDirectory]\*.cdx         ;; Delete .cdx
  375.       DeleteFiles from [InstallationDirectory] Quietly  ;; Files if they exist
  376.     *.cdx                                           
  377.       EndDeleteFiles
  378.     EndIf
  379.  
  380.     If FileExists [InstallationDirectory]\*.ia         ;; Delete .ia
  381.       DeleteFiles from [InstallationDirectory] Quietly  ;; Files if they exist
  382.     *.ia                                           
  383.       EndDeleteFiles
  384.     EndIf
  385.  
  386.     If FileExists [InstallationDirectory]\cb4012.*       ;; Don't need CB4012 now
  387.       If FileExists [InstallationDirectory]\cb40.hlp
  388.     DeleteFiles from [InstallationDirectory] Quietly
  389.       cb4012.*
  390.     EndDeleteFiles
  391.       EndIf
  392.     EndIf
  393.  
  394.     If FileExists [InstallationDirectory]\cb40.chk         ;; Delete cb40.chk
  395.       DeleteFiles from [InstallationDirectory] Quietly     ;; File if it exists
  396.     cb40.chk                                           
  397.       EndDeleteFiles
  398.     EndIf
  399.  
  400.     If FileExists [InstallationDirectory]\cb4.chk         ;; Delete cb4.chk
  401.       DeleteFiles from [InstallationDirectory] Quietly     ;; File if it exists
  402.     cb4.chk                                           
  403.       EndDeleteFiles
  404.     EndIf
  405.  
  406.     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  407.     ;; Run RETRIEVE.EXE to get records marked for deletion
  408.     
  409.     OSCommand RETRIEVE.EXE
  410.  
  411.     If [ReadmeFileName] <> BlankString
  412.       If FileExists [ReadmeFileName]
  413.         If EnhancedMode .AND. ExtendedMemoryPresent >2000
  414.         Else
  415.           Dialog
  416.             .cYour current memory configuration may require you to run Windows 
  417.             in Enhanced Mode.  Instructions follow in the Readme file.
  418.           EndDialog
  419.         EndIf
  420.         BrowseFile [ReadmeFileName]
  421.       Else
  422.         If EnhancedMode .AND. ExtendedMemoryPresent >2000
  423.         Else
  424.           Dialog
  425.             .cYour current memory configuration may require you to run Windows 
  426.             in Enhanced Mode.  Follow the instructions in your Windows User's Guide.
  427.           EndDialog
  428.         EndIf
  429.         Popup Sorry, readme file [ReadMeFileName] is missing.
  430.       EndIf
  431.     EndIf
  432.  
  433.     Do EscapeMessage
  434.  
  435.    If [GoodDestination] = N
  436.      Dialog
  437.     .cUpdate installation successful!  
  438.  
  439.     To run [ProductName] double click on the cookbook icon
  440.     in the Micro Cookbook Group Window.
  441.  
  442.     The first time Micro Cookbook is started it must create several
  443.     files.  This may take from 3 - 10 minutes depending on your
  444.     system...
  445.  
  446.     But please be aware that some files may be missing from 
  447.     [InstallationDirectory] that will cause the program to 
  448.     fail upon launch.
  449.      EndDialog
  450.    EndIf
  451.    If [GoodDestination] = Y 
  452.       Dialog
  453.     .cPartial installation successful!
  454.  
  455.     To run [ProductName] double click on the cookbook icon
  456.     in the Micro Cookbook Group Window.
  457.  
  458.     The first time Micro Cookbook is started it must create several
  459.     files.  This may take from 3 - 10 minutes depending on your
  460.     system...
  461.       EndDialog
  462.    EndIf 
  463. EndIf
  464.  
  465. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  466. SoLong Quietly
  467.  
  468. EndProcedure
  469.  
  470.  
  471.  
  472. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  473. Procedure SetupInstalit
  474. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  475.   SetDefaultBitmap Off
  476.   SetBackdrop On
  477.   SetCoordinatesTo 80x25
  478.   SetScreenAttrTo [ScreenColors]
  479.   SetBackgroundCharTo [BackgroundCharacter]
  480.   Do PrepareSystemReport
  481.   If [UseShadows] = YesCharacter
  482.     SetShadows On
  483.   Else
  484.     SetShadows Off
  485.   EndIf
  486.   If [InquireAboutSystemFileLocation] = NoCharacter
  487.     NoSysFileConfirmation
  488.   EndIf
  489.   SetMainBorderTo     [MainBorder]
  490.   SetPopupBorderTo    [PopupBorder]
  491.   SetModifyModeTo     [ModifyMode]
  492.   SetShadowAttrTo     DarkGrayOnBlack
  493.   SetScreenAttrTo     [ScreenColors]
  494.   SetPopupAttrTo      [PopupColors]
  495.   SetAttentionAttrTo  [AttentionColors]
  496.   SetTopLineTo        [TopLine]
  497.  
  498.   ;;;;;;;;;;;;;;;;;
  499.   ;;Load our bitmap
  500.   QueFiles to ShadowDirectory
  501.      CB40INST.BMP
  502.   EndQueFiles
  503.   GetQuedFiles Quietly
  504.   LoadBitMap 1 ShadowDirectory\CB40INST.BMP @xy(2,1)
  505.   ShowWindow Maximize
  506.   ShowBitMap 1
  507.  
  508. EndProcedure
  509.  
  510.  
  511. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  512. Procedure EscapeMessage
  513. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  514.   TextBox @xy(15,22)
  515.     You may press the Esc key at any time to abort the installation.
  516.   EndTextBox
  517. EndProcedure
  518.  
  519. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  520. Procedure DetermineDirectory
  521. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  522.   DetermineInstallationDrive 3000000 RequireFixed ShowDrivesWithSpace [NetWorkInstallation] BernoulliAsFixed
  523.  
  524.   [InstallationDirectory] := InstallationDrive:\[DefaultInstallationDirectory]
  525.   DetermineInstallationDirectory 3000000 RequireFixed BernoulliAsFixed
  526.  
  527. EndProcedure
  528.  
  529. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  530. Procedure CheckDestination
  531. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  532.   If FileExists [InstallationDirectory]\CB400?.DBF
  533.     [GoodDestination] := Y
  534.   Else
  535.     While [GoodDestination] = N
  536.       Dialog [YesNo] 1
  537.     .c[InstallationDirectory] does not contain
  538.     a complete installation of Micro Cookbook.
  539.     Do you want to install in a different 
  540.     directory? Y = Yes, install in a different directory
  541.            N = No, this is where I want to install
  542.       
  543.     If necessary, call Technical Support for 
  544.     assistance.
  545.       EndDialog
  546.       Do CheckYesNo
  547.       If [YesNo] = Y
  548.     Do DetermineDirectory
  549.     If FileExists [InstallationDirectory]\CB400?.DBF
  550.       [GoodDestination] := Y
  551.     EndIf
  552.       EndIf
  553.       If [YesNo] = N
  554.     Exit
  555.       EndIf
  556.     EndWhile
  557.   EndIf
  558.  
  559. EndProcedure
  560.  
  561. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  562. Procedure CheckYesNo
  563. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  564.   While [YesNo] <> Y 
  565.     If [YesNo] = N 
  566.       Exit
  567.     EndIf
  568.     If [Configure] = N
  569.       Dialog [YesNo] 1
  570.     .c[InstallationDirectory] does not contain
  571.     a complete installation of Micro Cookbook.
  572.     Do you want to install in a different 
  573.     directory? Y = Yes, install in a different directory
  574.            N = No, this is where I want to install
  575.       
  576.     If necessary, call Technical Support for 
  577.     assistance.
  578.       EndDialog
  579.     Else         ;; if Configure = Y
  580.       [YesNo] := N       ;; initialize YesNo to No - don't check
  581.       Dialog [YesNo] 1
  582.     .cEven though you most likely have the correct FILES setting
  583.     in your CONFIG.SYS file, UPDATE can check the setting if you
  584.     wish.  Y = Yes, have UPDATE check the setting
  585.            N = No, don't bother
  586.       EndDialog
  587.     EndIf
  588.   EndWhile
  589. EndProcedure
  590.  
  591.